home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / log / log3_52a / wasprint.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  100 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: WASPRINT.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 12/24/87     23:45
  9. *:
  10. *:      Called by: WAS.PRG                       
  11. *:
  12. *:           Uses: &WAS           
  13. *:
  14. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  15. *:*********************************************************************
  16. * WASPRINT VER 860410 THIS PROGRAM PRINTS A WAS file
  17. * COPYRIGHT  (C) Joe Kasser G3ZCZ 1986
  18. * called by logbook
  19. CLEAR
  20. STORE ' ' TO choice
  21. @ 5,1 SAY ' '
  22. ACCEPT 'Whole thing, worked/QSL-d, or just QSL-d (T,W,Q) ? ' TO choice
  23. @ 10,1 SAY ' '
  24.  
  25. STORE ' ' TO df
  26. STORE  0  TO cf
  27. ACCEPT 'Which call area (0-9, for all enter 10) ? ' TO cf
  28. ?
  29. ?
  30. ACCEPT 'DO you want hard copy (Y/N) ? ' TO df
  31. IF df = 'Y'
  32.    SET PRINT ON
  33.    EJECT
  34. ENDIF
  35.  
  36. STORE  0 TO qsled
  37. STORE  0 TO worked
  38.  
  39. USE  &was
  40. CLEAR
  41. ? 'WAS  PRINTOUT    for   ',callsign
  42. IF choice = 'Q'
  43.    ?? ' QSL STATUS'
  44. ENDIF
  45. ?
  46. ? 'PX STATE         CALL       DATE     BND  MODE STATUS'
  47. ? '-----------------------------------------------------'
  48. DO WHILE .not.EOF()
  49.    IF choice <> 'T' .and. dstate = ' '
  50.       *
  51.    ELSE
  52.       IF dstate = '-' .and. choice = 'Q'
  53.          *
  54.       ELSE
  55.          IF &cf = callarea
  56.             ? pc,state,dcall,ddate,dband,dmode
  57.             IF dstate = 'R'
  58.                IF choice = 'Q'
  59.                ELSE
  60.                   ?? dstate
  61.                ENDIF
  62.                STORE qsled + 1 TO qsled
  63.                STORE worked + 1 TO worked
  64.             ENDIF
  65.             IF dstate = '-'
  66.                STORE worked + 1 TO worked
  67.             ENDIF
  68.          ELSE
  69.             IF &cf >9
  70.                ? pc,state,dcall,ddate,dband,dmode,'  '
  71.                IF dstate = 'R'
  72.                   IF choice = 'Q'
  73.                   ELSE
  74.                      ?? dstate
  75.                   ENDIF
  76.                   STORE qsled + 1 TO qsled
  77.                   STORE worked + 1 TO worked
  78.                ENDIF
  79.                IF dstate = '-'
  80.                   STORE worked + 1 TO worked
  81.                ENDIF
  82.             ENDIF
  83.          ENDIF
  84.       ENDIF
  85.    ENDIF
  86.    SKIP
  87. ENDDO
  88. ?
  89. ?
  90. ? worked,' WORKED     ',qsled,'QSL-D'
  91. ?
  92. IF df = 'Y'
  93.    EJECT
  94.    SET PRINT OFF
  95. ENDIF
  96. WAIT
  97. RELEASE qsled,df,worked,choice,cf
  98. RETURN
  99. *: EOF: WASPRINT.PRG
  100.